home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / misc / RecentScript.lha / RecentScript / Configs / UMS FTP-Mail.extro < prev    next >
Encoding:
Text File  |  1998-03-15  |  567 b   |  27 lines
  1.  
  2. ADDRESS COMMAND echo '>>t:RS.temp "end"'
  3.  
  4. SAY "succeeded"
  5. SAY "Send mail to UMS..."
  6.  
  7. NewMessage.UMSCODE_TONAME='Aminet-FTP-Mailer'
  8. NewMessage.UMSCODE_TOADDR='%4'
  9. NewMessage.UMSCODE_SUBJECT='RecentScript-FTP-Mail-Request'
  10. NewMessage.UMSCODE_MSGTEXT_FILE="T:RS.temp"
  11.  
  12. IF UMSWriteMsg(Account,NewMessage.)~=0 THEN
  13.   SAY "succeeded"
  14. ELSE DO
  15.   SAY "failed"
  16.   err = UMSErrNum(Account)
  17.   IF err ~= 0 THEN DO
  18.     SAY "UMS Error #" || err || ": " || UMSErrTxt(account)
  19.   END
  20. END
  21. ENDIF
  22.  
  23. CALL UMSLogout(Account)
  24.  
  25. ADDRESS COMMAND "delete <>NIL: t:RS.temp"
  26.  
  27. SAY "Job completed."